home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
vberr_16.zip
/
VBERR-16.FRM
< prev
next >
Wrap
Text File
|
1996-01-07
|
8KB
|
245 lines
VERSION 4.00
Begin VB.Form frmDisplayOnline
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "VB/Error Handler (v 4.00)"
ClientHeight = 3165
ClientLeft = 945
ClientTop = 1380
ClientWidth = 6135
ControlBox = 0 'False
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 3510
Left = 915
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3165
ScaleWidth = 6135
Top = 1065
Width = 6195
Begin VB.CommandButton cmdOnTop
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "C1"
Height = 345
Left = 4320
TabIndex = 8
Top = 270
Width = 1725
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Total last same handle"
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 645
Left = 90
TabIndex = 2
Top = 90
Width = 1905
Begin VB.Label lblHandle
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "0000"
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 1080
TabIndex = 1
Top = 360
Width = 645
End
Begin VB.Label lblCounter
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "0000"
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 180
TabIndex = 0
Top = 360
Width = 645
End
End
Begin VB.ListBox lstOnline
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1980
Left = 90
TabIndex = 7
Top = 1080
Width = 5955
End
Begin VB.Label lblTitle
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00808080&
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Index = 3
Left = 2970
TabIndex = 6
Top = 810
Width = 3075
End
Begin VB.Label lblTitle
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00808080&
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Index = 2
Left = 1530
TabIndex = 5
Top = 810
Width = 1365
End
Begin VB.Label lblTitle
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00808080&
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Index = 1
Left = 810
TabIndex = 4
Top = 810
Width = 645
End
Begin VB.Label lblTitle
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00808080&
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Index = 0
Left = 90
TabIndex = 3
Top = 810
Width = 645
End
End
Attribute VB_Name = "frmDisplayOnline"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SetWindowPos Lib "user" (ByVal hWnd As Integer, ByVal Position As Integer, ByVal nH As Integer, ByVal nV As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal nFlags As Integer) As Integer
Private Sub cmdOnTop_Click()
Dim Dummy As Integer
If (cmdOnTop.Tag = "Y") Then
cmdOnTop.Tag = "N"
cmdOnTop.Caption = mcReadText("F", "")
Dummy = SetWindowPos(frmDisplayOnline.hWnd, -1, 0, 0, 0, 0, &H43)
Else
cmdOnTop.Tag = "Y"
cmdOnTop.Caption = mcReadText("E", "")
Dummy = SetWindowPos(frmDisplayOnline.hWnd, -2, 0, 0, 0, 0, &H43)
frmAddHndErr.ZOrder 0
End If
End Sub
Private Sub Form_Load()
Me.Caption = mcReadText("G", "")
Frame1 = mcReadText("9", "")
lblTitle(0) = mcReadText("A", "")
lblTitle(1) = mcReadText("B", "")
lblTitle(2) = mcReadText("C", "")
lblTitle(3) = mcReadText("D", "")
cmdOnTop.Tag = "Y"
cmdOnTop.Caption = mcReadText("E", "")
End Sub